home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Registry Checker 1.xpl < prev    next >
Text File  |  2001-11-27  |  3KB  |  83 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Program Options\Built in Windows Apps\Windows Registry Checker"
  5. "NAME"="Registry Checker Options"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Run Registry Checker every time Windows boots"
  8. "TEXT 2"="Allow creation of new backups"
  9. "TEXT 3"="Allow optimization of the registry"
  10. "DESCRIPTION 1"="In Windows 98 and Me, Microsoft included the Windows Registry Checker, a program which scanned the registry, to check for errors, and to create a backup."
  11. "DESCRIPTION 2"="Option #1: By default, Registry Checker runs in the background when you boot into Windows, and then performs its necessary tasks before closing (so it doesn't stay resident and consume resources). If you are sure you don't want Registry Checker running everytime you boot, clear this box, but it is *strongly* recommended you keep this enabled."
  12. "DESCRIPTION 3"="Option #2: The first time you run Registry Checker each day, it creates a backup of your registry, as well as SYSTEM.INI and WIN.INI, and these backups are stored in your C:\WINDOWS\SYSBCKUP folder (by default). If you don't want a backup creating each day, then clear this box, but remember that you are taking a big risk by not having a recent backup of your computer's registry."
  13. "DESCRIPTION 4"="Option #3: Having this option enabled will let Registry Checker optimize your registry, making it more efficient. It is recommended that you enable this option, unless it makes your computer take a long time to load."
  14. "COMMENT 1"="Thanks to Axcel216 [axcel216@aol.com] for the Registry Checker tips!"
  15. "VERSION"="1.22"
  16. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "CONTACURL"="http://www.xteq.com/"
  19. "OSVERSION"="001010"
  20.  
  21. w=GetWinDir
  22. sF="scanreg.ini"
  23. sP="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ScanRegistry"
  24.  
  25. SUB Plugin_Initialize
  26.  Call TxTOpen(w & sF)
  27.  
  28.  s=RegReadValue(sP)
  29.  if IsEmpty(s)=false then
  30.   Call SetUIElement(1,true)
  31.  end if
  32.  
  33.  i=TxtFindLine("Backup=",false)
  34.  if i>0 then
  35.   s=TxtGetLine(i)
  36.   if s="Backup=1" then
  37.    Call SetUIElement(2,true)
  38.   end if
  39.  end if
  40.  
  41.  i=TxtFindLine("Optimize=",false)
  42.  if i>0 then
  43.   s=TxTGetLine(i)
  44.   if s="Optimize=1" then
  45.    Call SetUIElement(3,true)
  46.   end if
  47.  end if
  48. END SUB
  49.  
  50. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  51.  s=GetUIElement(1)
  52.  if s=true then
  53.   Call RegWriteValue(sP,w & "Scanregw.exe /autorun",1)
  54.  else
  55.   Call RegDeleteValue(sP)
  56.  end if
  57.  
  58.  s=GetUIElement(2)
  59.  if s=true then
  60.   i=TxtFindLine("Backup=",false)
  61.    Call TxtSetLine(i,"Backup=1")
  62.  else
  63.   i=TxtFindLine("Backup=",false)
  64.   Call TxtSetLine(i,"Backup=0")
  65.  end if
  66.  
  67.  s=GetUIElement(3)
  68.  if s=true then
  69.   i=TxtFindLine("Optimize=",false)
  70.   Call TxtSetLine(i,"Optimize=1")
  71.  else
  72.   i=TxtFindLine("Optimize=",false)
  73.   Call TxtSetLine(i,"Optimize=0")
  74.  end if
  75.  
  76.  Call FileBackup(w & sF)
  77.  Call TxtSave()
  78. END SUB
  79.  
  80. SUB Plugin_Terminate
  81.  Call TxtClose()
  82. END SUB
  83.